use warnings;
use strict;
use Data::Dumper;
use Cwd;
use Cwd 'abs_path';

my $abs_path = abs_path(__FILE__);

print __FILE__ . "\n" . "$abs_path\n";

print "$0\n";

print "";

my $tmp = getcwd();

print "$tmp\n";

